unit UCliente;

interface

uses UBaseModel;

type
  TCliente = class(TBaseObject)
    private
      FTel: String;
      FNome: String;
      FEmail: String;

      procedure SetEmail(const Value: String);
      procedure SetNome(const Value: String);
      procedure SetTel(const Value: String);

    protected
    public
      procedure Salvar;
      procedure Buscar(sCod: String);

    published
      property Nome: String read FNome write SetNome;
      property Email: String read FEmail write SetEmail;
      property Tel: String read FTel write SetTel;
  end;

implementation

{ TCliente }

procedure TCliente.Buscar(sCod: String);
begin
  Notificar;
end;

procedure TCliente.Salvar;
begin
  Notificar;
end;

procedure TCliente.SetEmail(const Value: String);
begin
  FEmail := Value;
end;

procedure TCliente.SetNome(const Value: String);
begin
  FNome := Value;
end;

procedure TCliente.SetTel(const Value: String);
begin
  FTel := Value;
end;

end.
 